home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / ExitPet.Dxr / 00001.ls next >
Encoding:
Text File  |  1997-11-21  |  348 b   |  15 lines
  1. on Talk soundFile
  2.   puppetSound(soundFile)
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.     set temp to random(4)
  6.     set Head to the number of cast ("walrus" & temp)
  7.     set the castNum of sprite 4 to Head
  8.     updateStage()
  9.     wait(7)
  10.   end repeat
  11.   puppetSound(0)
  12.   set the castNum of sprite 4 to the number of cast "walrus1"
  13.   updateStage()
  14. end
  15.